www.gusucode.com > 动网论坛Dvbbs v8.3 > 动网论坛Dvbbs v8.3\code\源程序\dv_rssRead.asp
<!--#include file="Conn.asp"--> <!-- #include file="inc/const.asp" --> <% GetRssXml() Dvbbs.PageEnd() Sub GetRssXml() Dim GetUrl Dim XmlHttp,XmlDom GetUrl = Request.QueryString("url") If GetUrl="" Then Exit Sub End If Set XmlHttp = Dvbbs.iCreateObject("Microsoft.XMLHTTP") XmlHttp.Open "get",GetUrl,false XmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'XmlHttp.SetRequestHeader "content-type", "text/xml" XmlHttp.send() Set XmlDom = Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument"& MsxmlVersion) XmlDom.async = True If XmlDom.Load(xmlhttp.responseXML) Then PrintXmldb(XmlDom) 'TransformNode(XmlDom) End If Set XmlHttp = Nothing Set XmlDom = Nothing End Sub Sub PrintXmldb(XmlDoc) Response.ContentType="text/xml" Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>" Response.Write XmlDoc.documentElement.xml End Sub %>